﻿##Exercicio 1

## Ana Paula Assis

##basta mudar o diretorio?

getwd() 
setwd("C:/Users/Gabriel/Desktop/Paulinha/exercicio1") ##mudar o diretorio de trabalho comando setwd
getwd() ##este comando nao foi suficiente para restaurar a area de trabalho, para isso e necessario usar o comando load
load(file= "letras.RData") ## carrega um workspace para sua area de trabalho

##um comando perigoso

rm(list=ls()) ##remove todos os objetos do seu worspace
ls()
load(file= "letras.RData") ##carrega de novo seu arquivo, recuperando seus objetos que vc tinha removido. 
rm(list=ls())

##Remoçao com criterio

load(file="bichos.RData")
rm(list=ls(pattern= "temp"))   ##remove itens com o padrao pedido, neste caso padrao temp

##Classes de objeto

letters ##alfabeto em letras minusculas
LETTERS ##alfabeto em letras maiusculas

class(letters)
class(LETTERS) ##sao da classe caracteres

as.factor(LETTERS) ##muda a classe para fatores
as.factor(letters)

##objetos de data

Hoje= Sys.Date () ##guarda em um objeto a data de hoje. a funçao Sys.Date e a data do computador
class(Hoje)  ##mostra a classe do objeto, neste caso data
Hoje

copa.70 <- "21/06/70" ##data em que o brasil foi tri
copa.70 <- as.Date(copa.70,format="%d/%m/%y") ##transformando este objeto em data
copa.70
Hoje-copa.70

##a diferença de hoje pra quando o Brasil foi tri e de 15247 dias

Hoje+43

##daqui a 43 dias será dia primeiro de maio "2012-05-01"

save.image()

